تاریخ انقضا در اکسس – برای اکسس محدودیت اجرا تعریف کنید
سلام . اینجا سایت سافت پلاس است و شما مشغول خواندن مطلب آموزشی دیگری در این سایت هستید امروز می خواهیم در مورد تاریخ انقضا در اکسس با هم صحبت کنیم .
در واقع می خواهیم با هم یک دمو برای برنامه اکسس خودمان تهیه کنیم .
اما منظور از دمو چیست و چه موقع به درد می خورد ؟
تا به حال شده که یک نرم افزار را از اینترنت دانلود کرده و بعد از نصب شروع به استفاده از آن کنید .
اگر برای استفاده از این نرم افزار نیاز باشد که هزینه ای را پرداخت کنید معمولا این مسیر دنبال می شود .
در قدم اول شرکت سازنده ؛ نرم افزار یا برنامه مورد نظر را بدون اینکه هزینه ای از شما دریافت کند در اختیار شما قرار می دهد .
اما قرار نیست که استفاده از این برنامه برای همیشه رایگان باشد .
فقط برای اینکه این اطمینان را در شما ایجاد کند که برنامه مورد نظر از کیفیت خوبی برخوردار است و می تواند نیازهای شما را بطور کامل برآورده کند این امکان را برایتان فراهم می کند که تا مدت محدودی از امکانات این نرم افزار به رایگان استفاده کنید .
بنابراین استفاده از آن برنامه خاص برای شما دارای محدودیت است .
حالا این محدودیت می تواند به دو صورت باشد .
در حالت اول معمولا از تاریخ نصب و راه اندازی یک مدت زمان مشخص را در نظر می گیرند که بعد از اتمام این زمان دیگر برنامه برای شما فعال نخواهد بود واگر نیاز به استفاده از را داشته باشید باید نسبت به خریداری آن اقدام کنید .
در حالت دوم تعداد دفعات استفاده از نرم افزار مربوطه را برای کاربر محدود می کنند .
مثلا برنامه را طوری تنظیم می کنند که بعد از 10 بار اجرا شدن توسط شما دیگر برنامه از حالت فعال خارج می شود و شما باید برای ادامه استفاده از آن هزینه مربوطه را بپردازید .
حالا فرض کنید که شما هم توسط نرم افزار اکسس یک بانک اطلاعاتی را ایجاد کرده و آن را در اختیار مشتری خود قرار داده اید .
در واقع از این طریق به مشتری امکان تست برنامه و اطمینان از کیفیت طراحی آن را می دهید . اما مسلما باید این امکان دارای محدودیت باشد .
یعنی فقط تا یک تاریخ مشخص یا تعداد دفعات مشخص بایستی مشتری امکان استفاده از آن را داشته باشد و بعد از آن مجبور به پرداخت هزینه برنامه طراحی شده از سوی شما باشد .
دقیقا مثل چیزی که در برنامه ها و نرم افزار های شرکت های مطرح وجود دارد .
حالا ما هم می خواهیم دقیقا همین کار را برای نرم افزار اکسس خودمان شبیه سازی کنیم .
یعنی می خواهیم از دو طریق محدودیت اجرا را برای فایل اکسس خود ایجاد کنیم .
روش اول از طریق محدودیت زمانی یعنی کاری کنیم که برنامه فقط تا یک تاریخ خاص فعال باشد .
و در روش دوم از طریق محدودیت در تعداد دفعات استفاده از نرم افزار .
من علیرضا شهرآئینی هستم اگر تا انتهای این آموزش همراه من باشید مرحله به مرحله و گام به گام با هم پیش می رویم تا بتوانیم هر دوی این حالتها را برای برنامه خود تعریف کنیم .
تعیین تاریخ انقضا برای اکسس
برای اولین روش به سراغ این می رویم که چطور می شود کاری کرد که برنامه اکسس ما فقط تا یک تاریخ خاص کار کرده و بعد از آن دیگر کاربر قادر به استفاده از آن نباشد .
برای این کار باید چند تا کار ساده را انجام بدهیم . بیایید با هم این کارها را یک به یک پیش ببریم .
1- یک ماژول ایجاد کنید
در اولین قدم باید یک ماژول را ایجاد کنید . ماژول جایی است که در آن می توانید کد نویسی و برنامه نویسی کنید .
برای اینکه بتوانید یک ماژول را ایجاد کنید کافی است وقتی که در داخل نرم افزار اکسس هستید دکمه های Alt +F11 را از روی صفحه کلید خود یک بار فشار دهید .
با این کار وارد محیط کاری جدید می شوید .این محیط همان محیطی است که در آن می توانید کد نویسی کنیم .
اما برای اینکه بتوانید کدهای خود را ایجاد کنید اول به سراغ گزینه Insert رفته و بر روی گزینه module کلیک کنید . با این کار برنامه یک ماژول را برای شما ایجاد می کند .
در مرحله بعد در داخل این محیط شروع به کد نویسی می کنیم .
2- شروع به کد نویسی کنید
در این محیط باید یک تابع یا Function را برای خود ایجاد کنید .
البته نگران نباشید همه کارها و کدهایی را که باید بنویسید را با هم خط به خط مرور می کنیم تا به خوبی متوجه بشوید که هر خط از کدها قرار است چه کاری را انجام دهند .
برای شروع کار این دو خط کد را در داخل ماژولی که ایجاد کردیم وارد کنید .
Public Function access_expired()
End Function
اگر خاطرتان باشد ما گفتیم که قرار است یک تابع را برای تاریخ انقضا اکسس تعریف کنیم .
خُب ما هم در این دو تا خط کد یک تابع را با استفاده از کلمه کلیدی Function برای اکسس تعریف کردیم . اسم این تابع را هم access_expired گذاشته ایم .
حالا باید در داخل این تابع کدهای خود را بنویسد . با استفاده از این کدها باید برای اکسس یک تاریخ خاص را تعیین کنید .
برای این کار کدهای بالا را به صورت زیر کامل کنید .
Public Function access_expired()
If (Date > #5/31/2021#) Then
End Function
اینجا ما از یک تابع شرطی استفاده کرده ایم . در واقع با استفاده از تابع شرطی به برنامه گفته ایم که :
” اگر تاریخ جاری سیستم بیشتر از 5/31/2021 بود آن وقت …. ”
اینجا اکسس تاریخ جاری سیستم را با استفاده از تابع Date خودش استخراج می کند و با تاریخ مورد نظر ما مقایسه می کند .
حالا دو حالت پیش می آید .
یا تاریخ جاری سیستم کاربر کمتر از تاریخ مورد نظر ماست که در این حالت هیچ اتفاق خاصی نباید بیفتد و در واقع کاربر هنوز مهلت استفاده از برنامه را دارد .
اما اگر تاریخ جاری سیستم بیشتر از تاریخ مورد نظر ما بود یعنی تاریخ انقضا اکسس به سر آمده و آن وقت باید به برنامه بگوییم که چه واکنشی را از خود نشان دهد .
اینجا ما دو تا کار را برای برنامه تعریف می کنیم .
اول اینکه به کاربر یک کادر پیغام را نمایش داده و به وی اعلام کند که مهلت استفاده کاربر از این برنامه پایان یافته است .
فعلا بیایید همین یک کار را برای برنامه تعریف کنیم تا به کار دوم برسیم .
برای این کار کدهای خود را بصورت زیر کامل کنید .
Public Function access_expired()
If (Date > #5/31/2021#) Then
MsgBox "مهلت استفاده از این برنامه به اتمام رسیده " & vbCrLf & vbCrLf & _
"لطفا نسخه اصلی برنامه را تهیه کنید vbInformation + vbOKOnly, "Demo Expired!"
End Function
در کدهای بالا ما از تابع msgbox استفاده کرده و یک پیغام را برای کاربر نمایش می دهیم .
اما این قرار نیست همه کاری باشد که این کدها انجام می دهند .
در ادامه باید کاری کنیم که برنامه بطور خودکار بسته شده و کاربر از برنامه ما خارج شود .
برای این کار هم کدهای خود را بصورت زیر کامل می کنیم .
Public Function access_expired()
If (Date > #5/31/2021#) Then
MsgBox "مهلت استفاده از این برنامه به اتمام رسیده " & vbCrLf & vbCrLf & _
"لطفا نسخه اصلی برنامه را تهیه کنید vbInformation + vbOKOnly, "Demo Expired!"
docmd.Quit
end if
End Function
کدهای ما تکمیل شد . با استفاده از این کدها هم به کاربر پیغام می دهیم که مهلت قانونی استفاده از برنامه به اتمام رسیده و هم اینکه بصورت خودکار برنامه بسته خواهد شد .
اما یک سوال از این کدها در کجا و چطوری باید استفاده کرد ؟
با من همراه باشید تا در ادامه این موضوع را هم بررسی کنیم .
به یک فرم احتیاج داریم
برای ادامه کار نیاز به یک فرم داریم اما چه فرمی ؟
این فرم باید فرمی باشد که بلافاصله بعد از اینکه اکسس اجرا شد قبل از هر چیز این فرم اجرا شود .
خوب برای این کار هیچ فرمی بهتر از فرم ورود یا همان لوگین فرم در اکسس نیست .
لوگین فرم در واقع فرمی است که در آن ما از کاربر خود نام کاربری و کلمه عبورش را می پرسیم تا در صورت درست بودن آنها اجازه دسترسی به اکسس را به او بدهیم .
اما اگر در مورد لوگین فرم یا همان فرم ورود اطلاعاتی نداری می توانی به مطلب زیر مراجعه کنی . گ
مطلب مرتبط : تنظیم فرم ورود در اکسس
اما ما می خواهیم کاری کنیم که به محض اینکه اکسس اجرا شد اول این فرم لود شده و بلافاصله و بصورت خودکار هم چک شود که آیا کاربر هنوز از لحاظ زمانی مهلت تست برنامه ما را دارد یا نه ؟
برای این کار هم از همان تابعی که در مرحله قبل نوشتیم استفاده می کنیم .
برای این کار مراحل زیر را دنبال کنید .
1- به محیط طراحی فرم لوگین بروید .
از طریق کادر Property sheet به سربرگ Event رفته و رویداد Load مربوط به فرم خود را انتخاب کنید .
حالا در داخل این رویداد تابعی را که کدهای آن را نوشتیم فراخوانی کنید .
Private Sub Form_Load()
Call access_expired
End Sub
حالا همه چیز آماده است و شما می توانید با خیال راحت فایل خود را برای تست در اختیار دیگران قرار دهید
روش دوم : محدودیت در اجرا بگذارید
روش قبل روش محدودیت در تاریخ بود . یعنی به کاربر اجازه می داید که تا یک تاریخ مشخص به برنامه شما دسترسی داشته بشد .
در این روش کاربر با محدودیت زمانی روبرو است اما با محدودیت اجرا روبرو نخواهد بود . یعنی به هر تعداد که بخواهد می تواند برنامه شما را اجرا کند .
اما اگر بخواهید که کاربر را از لحاظ دفعات اجرای برنامه محدود کنید چه کار باید بکنید .؟
مثلا به کار اجازه بدهید تا 10 بار از برنامه شما استفاده کند و برای دفعات بعد امکان استفاده از برنامه را نداشته باشد مگر اینکه مجوزش را از شما بگیرد .
اما برای ایجاد محدودیت به لحاظ دفعات اجرا مراحل زیر را دنبال کنید .
قدم اول : یک فرم ایجاد کنید .
اولین کاری که می کنید ایجاد یک فرم است . این فرم باید مثل فرمی که در روش قبل ساختیم به محض اجرا شدن برنامه بصورت خودکار اجرا شود .
مراحل ایجاد همچین فرمی را در مرحله قبل یاد گرفتیم .
حالا فرم خود را به محیط طراحی برده و در رویداد مربوط به On Load آن این کدها را بنویسید .
Private Sub Form_Load()
If Me.txt_1 = "" Then
Me.txt_1 = 1
Else
Me.txt_1 = Me.txt_1 + 1
End If
If Me.txt_1 <= 3 Then
With Me.Label1
.Caption = "به برنامه اکسس خوش آمديد "
.BackColor = vbGreen
End With
ElseIf Me.txt_1 > 3 Then
With Me.Label1
.Caption = "شما بيشتر از 3 بار از اين برنامه استفاده کرده ايد "
.BackColor = vbRed
End With
DoCmd.CloseDatabase
End If
End Sub
مطالب زیر را حتما مطالعه کنید
ساخت برچسب در اکسس💥چطور آنها را ایجاد و مدیریت کنیم ؟
ریبون ها در اکسس💥از مخفی کردن تا مدیریت کردن آنها
چطوری متن ها و تصاویر را بصورت متحرک در اکسس نمایش بدهیم ؟
فرمت دهی نوشته ها در اکسس | کاربرد + مثالها
۵ ویژگی در فرم های اکسس که کمتر از آنها خبر داشتید .
باز کردن گزارش اکسس برای یک رکورد مشخص + نمونه فایل
2 دیدگاه
به گفتگوی ما بپیوندید و دیدگاه خود را با ما در میان بگذارید.
سلام وقت بخیر سپاس از اموزش های شما،ببخشید اگر تعیین تاریخ انقضا برای اکسس رو انجام دادم ولی کاربر با به عقب بردن تاریخ سیستم باز از اون استفاده کرد چی؟
می تونید برای تاریخ انقضا از تعداد روز مشخص استفاده کنید